home *** CD-ROM | disk | FTP | other *** search
/ Quarterdeck InternetSuite / Quarterdeck InternetSuite.iso / qsockpro.qip / NETROVER.MPS < prev    next >
Encoding:
Text File  |  1996-03-20  |  931 b   |  48 lines
  1. # ONRAMP SLIP/PPP login script
  2. # Copyright 1995 Quarterdeck Corporation
  3. # 7-13-95 CEL
  4.  
  5. STRING username
  6. STRING password
  7. STRING framing
  8. STRING IPAddress
  9.  
  10. SetTimeOut  60
  11.  
  12. CfgGetValue "Username" username
  13.  
  14. IF result = 0 THEN
  15.     GetInput "Enter your username:"  username
  16.     IF result = 0 THEN
  17.         PRINT "Warning, no username entered."
  18.     ELSE
  19.         PRINT "Username set to: ";username
  20.     ENDIF
  21. ENDIF
  22.     
  23. CfgGetValue "Password" password
  24. IF result = 0 THEN
  25.     GetPassword "Enter your password:" password
  26.     IF result = 0 THEN
  27.         PRINT "Warning, no password entered."
  28.     ELSE
  29.         PRINT "Password set."
  30.     ENDIF
  31. ENDIF
  32.     
  33. CfgGetValue "Framing" framing
  34. IF result = 0 THEN
  35.     ABORT "Can't read 'Framing' setting from QDECK.INI."
  36. ENDIF 
  37.  
  38. CommWaitFor     "login:"  
  39.  
  40. CommSend        username
  41. CommSend        "%r"         
  42.     
  43. CommWaitFor     "password:"
  44. CommSend        password
  45. CommSend        "%r"
  46.  
  47. END
  48.